From: Richard M. Stallman Date: Mon, 22 Sep 2003 15:11:02 +0000 (+0000) Subject: (eval-expression): Bind standard-output in to-buffer case. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25488 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0e17df926f07de07448b6e4bec6ba517e25221f1;p=emacs.git (eval-expression): Bind standard-output in to-buffer case. --- diff --git a/lisp/simple.el b/lisp/simple.el index ed2d57150ba..b0d5f7295f9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -663,7 +663,8 @@ the echo area." (print-level eval-expression-print-level)) (if eval-expression-insert-value (with-no-warnings - (eval-last-sexp-print-value (car values))) + (let ((standard-output (current-buffer))) + (eval-last-sexp-print-value (car values)))) (prin1 (car values) t)))) (defun edit-and-eval-command (prompt command)